﻿Public Class BEreserva

#Region "Declaración de variables"

    Private codReserva As Integer
    Private codCrioBox As Integer
    Private codProtocolo As Integer
    Private fechaReserva As Date
    Private cantidad As Integer
    Private disponible As Boolean

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodReserva As Object, _
            ByVal pCodCrioBox As Object, _
            ByVal pCodProtocolo As Object, _
            ByVal pFechaReserva As Object, _
            ByVal pCantidad As Object, _
            ByVal pDisponible As Object)

        Me._codReserva = pCodReserva
        Me._codCrioBox = pCodCrioBox
        Me._codProtocolo = pCodProtocolo
        Me._fechaReserva = pFechaReserva
        Me._cantidad = pCantidad
        Me._disponible = pDisponible

    End Sub

    Public Property _codReserva() As Integer
        Get
            Return Me.codReserva
        End Get
        Set(ByVal value As Integer)
            Me.codReserva = value
        End Set
    End Property

    Public Property _codCrioBox() As Integer
        Get
            Return Me.codCrioBox
        End Get
        Set(ByVal value As Integer)
            Me.codCrioBox = value
        End Set
    End Property

    Public Property _codProtocolo() As Integer
        Get
            Return Me.codProtocolo
        End Get
        Set(ByVal value As Integer)
            Me.codProtocolo = value
        End Set
    End Property

    Public Property _fechaReserva() As Date
        Get
            Return Me.fechaReserva
        End Get
        Set(ByVal value As Date)
            Me.fechaReserva = value
        End Set
    End Property

    Public Property _cantidad() As Integer
        Get
            Return Me.cantidad
        End Get
        Set(ByVal value As Integer)
            Me.cantidad = value
        End Set
    End Property

    Public Property _disponible() As Boolean
        Get
            Return Me.disponible
        End Get
        Set(ByVal value As Boolean)
            Me.disponible = value
        End Set
    End Property

End Class
